Top 10k strings from Pomocnik 2 (1984)(Polbrit International)(pl).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
9 ?????????????????????????????
5 ;"Przesuni
4 ??????????????????
3 yj klawisza
3 ;"Procedura w ROM-ie";
2 p
2 aj procedur
2 TNA SCR.",190
2 TNA SCR.",176
2 RA SCROLL",22
2 E LITERY W PROGRAMIE",1
2 E LITERY W NAPISACH",1
2 CZENIE FLASH",1
2 CZENIE BRIGHT",1
2 A,B,C$,DUR:
1 zyku maszynowym, kt
1 ywaniem w trakcie jego wykonywania funkcji BREAK . W takim przypadku wykonywanie programu przekazywane jest do linii , ktorej dwubajtowy odpowiednik zosta
1 ym ekranie"
1 ym ekranie"
1 yj komendy POKE 23692,255 w p
1 yciem obni
1 y wprowadzi
1 y przez POKE 65360/61 L/M":
1 y przenumerowa
1 y po obliczeniu procedur
1 y odszu ka
1 y magne tofon przez EAR i uruchomi
1 y instrukcje: CLEAR 32767:RANDOMIZE USR 65290 Ca
1 y : POKE 59580,I:POKE 59582,S-256* INT(S/256):POKE59583,INT(S/256) Wszystkie argumenty instrukcji GOTO,GOSUB,LIST,RESTORE,SAVE... LINE s
1 y ( adres , d
1 wszy od adresu kt
1 wki stosowane przez SPECTRUM do zapisu informacji na ta
1 wka podawana jest nazwa,adres,d
1 wietla szachow nic
1 wczas : POKE 64711, I - 256*INT(I/256) POKE 64712, INT(I/256) POKE 64714, L - 256*INT(L/256) POKE 64715, INT(L/256)":
1 w przez: POKE 63903, Stary kod POKE 63905, Nowy kod":
1 w obli czanych).":
1 w o podanym kodzie":
1 w instrukcji GOTO i GOSUB. Patrz r
1 w POKE 63012,Liczba d
1 w GOTO/GOSUB/RESTORE":
1 w 3.Macierzy liczbowych 4.Macierzy o elementach typu ci
1 w POKE 63014 i 63015 Wys.d
1 w POKE 63798 i 63799(L/M) adres startu POKE 63801, Wpisywana liczba"
1 w 5.Zmiennych steruj
1 uuufhjljhfdsdghS
1 u 0-65535 na zapis szestnastkowy. Po urucho mieniu pojawia si
1 u 0 - 65535. Jej dwu bajtowym rozk
1 trz niej. POKE 59293,Atrybut okre
1 tnie , szesnastkowo .":
1 tli POKE 64651, Czas trwania POKE 64670, 28(w g
1 tlami FOR...NEXT"
1 tku dowolnego programu powoduje,
1 tkiem argument
1 tek zmienianego obszaru nale
1 t do BASIC-u przez Q":
1 szonej jasno
1 sza zamienia wszystkie znaki w programie o podanym kodzie na znaki o nowym kodzie Wprowadzanie parametr
1 s$="POM "+
1 s
1 rnie opis procedury u
1 rnego rogu wype
1 rnego rogu obszaru."
1 rej adres startowy wpisa
1 rej dwubajtowy odpowiednik jest zapisany przez POKE w adresie 60878 (low) i 60879 (most). Kod b
1 rego 2-bajtowy odpowiednik umieszczony jest przez POKE w adresach 62866 low i 62867 high . Zawarto
1 ppppfsdgssdhllhdslljfsdfjll
1 pnie wprowadzi
1 pnie procedur
1 pnie postaw przez PLOT punkt wewn
1 pnej procedury przez klawisz
1 o zapisane procedur
1 nie w pami
1 nie od programu 'POMOCNIK'"
1 nianego obszaru"
1 nia blok pami
1 ne szczeg
1 na jest wy
1 mie przez:";
1 mie i dzia
1 mie . Po uruchomieniu , w
1 liwia zamian
1 liwe. Zwi
1 li chcesz spis procedur u
1 li chcesz powt
1 li zanotowa
1 la Wysoko
1 la Czas trwania ms (L/M bajt)"
1 ku (L/M bajt) POKE 63004 i 63005 okre
1 ku (L/M bajt) POKE 63017 i 63018 Czas trwania w ms (L/M bajt)"
1 ksza szybko
1 kkpoiytewasdfgj
1 g instrukcji RANDOMISE X: PRINT PEEK 23670,PEEK 23671 otrzymasz dwubajtowy rozk
1 ego przesuwu u
1 e przez POKE ";A+16
1 e przez POKE ";A+13
1 e program w razie wyst
1 e procedury 29,64,71":
1 e litery na ma
1 e i odwrotnie. "
1 e : 256 * M + L = X. Wczytuj
1 e i odwrotnie w zmiennych typu napis lub w programie.":
1 e procedury 29 , 50 , 71":
1 dzy liniami 1-255";
1 dzie zapisana. Aby odtworzy
1 dzie liczb
1 dzie gdzie jest to logicznie mo
1 dzie zapisany w zmiennej L.":
1 du (ang.error code) zapami
1 dne PRINT AT lewego g
1 dne (jak w funkcji AT) lewego g
1 da z 80 pro cedur mo
1 czeniu zasilania":
1 czeniu magnetofonu i odczy taniu nag
1 czenia na ekranie PRINT i PLOT procedura ta wy
1 cz 0:OK 8:END lub 9:STOP) zaczyna wyko nywa
1 cy Ink,Paper,Bright,Flash nast
1 cie cykliczne przez POKE ";A+13
1 cie cykliczne przez POKE ";A+16
1 cie cyk. i INVERSE POKE ";A+13
1 cie klawisza. Jego kod b
1 cia wszyst kie nowe linie maj
1 ci. Wprowadzi
1 ci zza R-TOPu Procedura 15 zamienia zawarto
1 ci za RAMTOP Procedura 14 przepisuje na ekran obszar pami
1 ci liczby podane szesnastkowo. Pocz
1 ci BRIGHT 1 na normalne i odwrotnie"
1 ci . Patrz procedury 50 , 64":
1 ci ( od ko
1 ci znajdowa
1 ci Przed u
1 ca i dekodu j
1 ca ostatniej zmiennej do RAMTOP-u) Wprowadzaj
1 c nie zmienia argument
1 c instrukcj
1 atwiejszego
1 aniu tej procedury nale
1 anie tej procedury na pocz
1 anie procedury przez:";
1 ana przez RANDOMIZE USR 63950 POKE 63951,Czas trwania Zapis SAVE 'ZAP' CODE 63950,26."
1 adem nazywamy par
1 ad: PRINT AT 7,13;:LET Z= USR 63039 powoduje wpisanie na zmienn
1 ad liczby X":
1 a zapisana Przewi
1 a nie niek
1 a na ca
1 a kilkaset razy szybciej ni
1 a niem procedur 25-28 otrzymamy przesuw ekranu razem z atrybu tami."
1 ^?/?`/?```
1 \##N#F#"]\"
1 [~|\{{__kkssssssssss
1 [}\r#s#N#F#
1 Zapis prawid
1 Y EKRAN SCROLL >",32
1 Y EKRAN SCROLL <",32
1 To jest linia numer ";Z
1 TA PROCEDURA JEST NIERELOKOWALNA
1 Start procedury ";A
1 SAVE /OPIS /I
1 SAVE '";"POM ";n;"' CODE ";A;",";B
1 RYCHPROCEDUR GRAFICZNYCH I D
1 RANDOMIZE USR 3190
1 RANDOMIZE USR ";A
1 R"E\*S\###"
1 Press ENTER to Expand the Whole Program
1 PROCEDURA NR:
1 PROC: ";C$'" JEST OBECNIE WYWO
1 POMOCNIK 2
1 No. STATEMENTS :
1 No. OF EXTRA BYTES::}\_:~\W:
1 No. LINES :
1 No. Bytes:
1 NIJ DOWOLNY KLAWISZ":
1 NIJ DOWOLNY KLAWISZ
1 NIJ KLAWISZ
1 NIENIE ATRYBUT
1 NIANIE OBSZARU",1
1 NIANIE EKRANU",1
1 NDEKS /CONT /NUMER
1 N$="!!!!!!"
1 Length of Program Only:!
1 LINE NO:NOW RENUMBER PROGRAM
1 Koniec procedury ";A+B-1
1 INNY KLAWISZ
1 INNY DOWOLNY KLAWISZ
1 INDEKS - STRONA ";(Z-1
1 First Byte:
1 FROM LINE NO:TO LINE NO:AFTER LINE NO:NOW RENUMBER PROGRAM
1 ERROR CODE: ";N$:
1 ENLARGE REM
1 CZENIE FLASHN
1 CENIE PROGRAMU",1
1 CD
1 BLOCK COPY
1 Auto-start Line No:
1 Array Name:
1 Adres startu:
1 AD ZASTOSOWANIA NIEKT
1 ?????????????????????????
1 ???????????????????
1 ?????????????????
1 ????????????8888888888888888888888888888888888888888888888888888888888888888
1 ????????????
1 ;"Zapis na ta
1 ;"WPROWADZENIE":
1 ;"W celu skasowania wszystkich linii od a do b : POKE 23728, a - 256*INT(a/256) POKE 23729, INT(a/256) RANDOMIZE b":
1 ;"W celu otrzymania niekasowalnej pierwszej linii programu nale
1 ;"W celu cyfrowego zapisu do pami
1 ;"W celu wydruku na ekranie wi
1 ;"UWAGA:Procedura nie relokuje si
1 ;"Ta procedura wype
1 ;"Ta procedura skraca program i zwi
1 ;"Ta procedura pozwala skasowa
1 ;"Przesuw zwyk
1 ;"Przesuw cykl. POKE ";
1 ;"Program zawiera 80 procedur napisanych w j
1 ;"Procedury od 75 do 78 zamieniaj
1 ;"Procedury graficzne , mo
1 ;"Procedura zamienia obszary o podwy
1 ;"Procedura zamienia obszary migaj
1 ;"Procedura wypisuje list
1 ;"Procedura wpisuje losow
1 ;"Procedura w ROM-ie":
1 ;"Procedura ta skraca program do minimum poprzez scalanie wielu linii w jedn
1 ;"Procedura przenumerowuj
1 ;"Procedura pozwala zabezpieczy
1 ;"Procedura pozwala wpisywa
1 ;"Procedura pozwala przed
1 ;"Procedura pozwala okre
1 ;"Procedura poni
1 ;"Procedura podobna do procedury 51 . Zabezpiecza program przed u
1 ;"Procedura odtwarza to co by
1 ;"Procedura odczytuj
1 ;"Procedura kasuje kody kontrolne sterowania kolorami umieszczane w programie, tym samym zwi
1 ;"Procedura drukuje zawarto
1 ;"Procedura drukuje ilo
1 ;"Procedura czeka na naci
1 ;"Procedura RESET . R
1 ;"Procedura 13 przepisuje ekran do pami
1 ;"Procedura 'rozszerza' program lub jego wybran
1 ;"Procedura umo
1 ;"Procedura pozwala przesun
1 ;"PRINT;: RANDOMIZE USR 60222";
1 ;"POM ";N:
1 ;"POKE LICZBY TYLKO
1 ;"POKE 64884, Nowy kolor Paper"
1 ;"POKE 64859, Nowy kolor Ink"
1 ;"POKE 64829, Kod znaku POKE 64831, Wysoko
1 ;"POKE 64682, Czas trwania POKE 64693, Cz
1 ;"POKE 64648, Cz
1 ;"POKE 63011,Zmniejszanie wys.d
1 ;"POKE 63001 i 63002 okre
1 ;"POKE 60006, Czas trwania 1-127 POKE 60020, Kolory 0-7 POKE 60029, Odleg
1 ;"POKE ";A+7
1 ;"POKE ";A+6
1 ;"POKE ";A+4
1 ;"POKE ";A+1
1 ;"Niech kursor programu znajduje si
1 ;"Niech X b
1 ;"Narysuj figur
1 ;"Jako wynik R tej procedury drukowana jest liczba wolnych bajt
1 ;"J.Szafranek"
1 ;"INTERNATIONAL"
1 ;"Aby przenumerowa
1 ;"----> ";
1 ;", X - 256*INT(X/256)"'" POKE ";A+2
1 ;", Wysoko
1 ;", Szeroko
1 ;", Nowy atrybut";
1 ;", INT(X/256)":
1 ;"'P O M O C N I K 2' PB-U6";
1 ;" przez";
1 ;" i POKE ";A+3
1 ;" PROCEDURA 51 ZABEZPIECZA PRZED ZATRZYMANIEM PROGRAMU
1 ;" P O M O C N I K 2 "
1 ;" POLBRIT INTERNATIONAL 1984";
1 ;" LET L =";
1 ;" Procedura przeprowadza konwersj
1 ;" L M":
1 ;" PRINT";
1 ;" LET L = "
1 ;" Procedura dzia
1 ;" PRINT "
1 ;" "
1 2;50,60,9000:
1 23606,255*
1 17,1;"Procedura 'Zap' mo
1 098653jkkjgfsasfhklzxzxcvbnBVXZXVBMASDFGHJK
1 ,typ i linia autostartu.":
1 ,"*SCROLL CI
1 ,"*RESET ",1
1 ,"*NIEKASOWALNE LINIE",1
1 ,"*LINIA SCROLL ^",24
1 ,"*DWU-BAJTOWY KONWERTER",1
1 ," ZNAK NA EKRANIE",1
1 ," ZMIANA PAPER",1
1 ," ZMIANA INK",1
1 ," ZAPIS SZESNASTKOWY",1
1 ," ZAPIS EKRANU ZA R-TOP",1
1 ," ZAPIS D
1 ," ZAMIANA ZNAK
1 ," ZAMIANA INK,PAPER",1
1 ," WYMIANA EKRAN
1 ," WIELOTONOWY SYMULATOR",8
1 ," SZACHOWNICA",1
1 ," SUPER-RENUMERACJA LINII",1
1 ," SCROLL ZNAKU W PRAWO",255
1 ," SCROLL ZNAKU W LEWO",255
1 ," ROZSZERZENIE PROGRAMU",1
1 ," ROZSZERZENIE INSTR. REM",1
1 ," REZERWA PAMI
1 ," RANDOM NUMBER GENERATOR",20
1 ," PRZENUMEROWANIE LINII",1
1 ," PROGRAM MONOCHROMATYCZNY",1
1 ," PROGRAM BEZ LISTINGU",1
1 ," PIXEL SW-PRZEK
1 ," PIXEL SE-PRZEK
1 ," PIXEL SCROLL ^",175
1 ," PIXEL SCROLL >",255
1 ," PIXEL SCROLL <",255
1 ," PIXEL SCROLL
1 ," PIXEL NW-PRZEK
1 ," PIXEL NE-PRZEK
1 ," ON ERROR GOTO",1
1 ," ON BREAK GOTO",1
1 ," ODCZYT NAG
1 ," ODCZYT EKRANU ",1
1 ," ODCZYT D
1 ," ODBEZPIECZENIE PROC.79",1
1 ," OCZEKIWANIE NA KLAWISZ",1
1 ," LISTA ZMIENNYCH",1
1 ," LINIA SCROLL >",33
1 ," LINIA SCROLL <",33
1 ," LINIA PRAWO-G
1 ," LINIA LEWO-G
1 ," KOPIOWANIE BLOKU LINII",1
1 ," KASOWANIE INSTR. REM",1
1 ," KASOWANIE BLOKU LINII",1
1 ," HEX->DEC KONWERTER",1
1 ," EFEKTY BRZEGOWE",10
1 ," DRUKOWANIE NA EKRANIE",1
1 ," DEC->HEX KONWERTER",1
1 ," ATRYBUTY SCROLL ^",40
1 ," ATRYBUTY SCROLL >",200
1 ," ATRYBUTY SCROLL <",40
1 ," ATRYBUTY SCROLL
1 ," ANALIZA PROGRAMU",1
1 ," ANALIZA PAMI
1 ," ADRES LINII",1
1 ," 2-TONOWY GENERATOR",10
1 ," 1-TONOWY SYMULATOR",15
1 ," 1-TONOWY GENERATOR",5
1 ," +/- FLASH",1
1 ," +/- BRIGHT",1
1 +a;", 26";
1 +-*]\"[\*Q\
1 ++F+N+++"]\*S\~
1 ++F+N+++"]\
1 *]\###q#p##"]\
1 *S\##"]\^#V
1 ''"Procedura zosta
1 ''"Procedura dzia
1 ''"POM ";N;" CODE ";A;",";B:
1 '"Po zapisie konieczna weryfikacja"
1 '" Klawisz
1 '" Opis procedury o znanym numerze przez
1 '" Opis nast
1 #T]##N#F#~
1 "sterowania przez POKE ) u
1 "To jest procedura 'Zap'. A teraz wielotonowy symulator.":
1 " Program 'POMOCNIK' pozwala przejrze
1 !@#$@!@@@@#$%&
1 zapisana na ta
1 z przedzia
1 z procedurami 25-28"
1 z instrukcj
1 wprowadzony przez POKE w adresy 60952 (low) 60953 (high).":
1 wolnej pami
1 w linii o numerze X. Procedura podaje adres pierw szego znaku w linii programu X":
1 w innych programach.";
1 w dowol nym miejscu na ekranie . Przyk
1 w celu zapisania na kasecie pod nazw
1 w celu weryfikacji"
1 w kolejne kom
1 przez POKE:- INK (63732) PAPER (63738) FLASH (63744) BRIGHT(63750) INVERSE(63756) OVER (63762) AT (63768,63771)CHR$ (63774)"
1 przenumerowane (z wyj
1 program jako CODE z autostartem do pierwszej linii programu.";
1 program procedur
1 poprzez umieszczanie tylko jednej instrukcji w linii ( poza instrukcjami typu IF...THEN..) Po wywo
1 ponownie poprawiane.":
1 opisy tych 80 procedur, zademonstrowa
1 od linii, kt
1 od 32768 do 64K b
1 obszaru";
1 obszaru POKE 64832 i 64835 odpowiednio wsp
1 obszaru POKE 64834, Szeroko
1 napisana w BASIC-u"
1 napis D: wczytaj wtedy liczb
1 na ekranie , nast
1 musi procedura 49 kt
1 linii do wydrukowania . W celu otrzy mania ci
1 linii i instrukcji w programie":
1 linie od S z krokiem I nale
1 liczb M , L tak
1 komendy POKE 23692, X , gdzie X oznacza ilo
1 kod znaku znajduj
1 jest drukowana dzie si
1 jej adres X procedur
1 jego wykony- wania poprzez skasowanie wszystkich instrukcji REM . Patrz tak
1 argumentem rozkaz
1 a I krok w
1 Z kodu znaku z pola AT 7,13 na ekranie .":
1 REM poprzez umieszczenie do 9999 bajt
1 RAMTOP !! Obszar od X-6911 do X zaznacz POKE ";A+1
1 POKE 23755,0 POKE 23756,0 . Dla dowolnej linii w programie nale
1 POKE 23637,203:POKE 23638,92:SAVE 'nazwa'CODE 23552,RAMTOP-23550 -R mo
1 J.SZAFRANEK
1 BLOK PAMI
1 : 1.Zmiennych liczbowych 2.Zmiennych typu ci
1 79. Linie programu mog
1 69 ,a nast
1 60 TA PROCEDURA JEST NIERELOKOWALNA"
1 46 w celu przenumerowania , a nas- t
1 44 skasowa
1 1 POKE 64702, Cz
1 . POKE 63796, Liczba bajt
1 , miejsca ";
1 (numer)":
1 (indeks)"
1 (BRIGHT 0 i 1) na ca
1 wykony wania programu . Patrz tak
1 w celu zapisa nia procedury na ta
1 tywany jest pod adresem 23681.":
1 numer 0 Nale
1 listing programu przed opera cjami EDIT/zmiana linii. Te operacje edytora powoduj
1 POLBRIT INTERNATIONAL 1984
1 INNY DOWOLNY KLAWISZ
1 47 wpisa
1 22 linii bez blokady pytaniem 'scroll?' nale
1 zabezpieczenie programu przez procedur
1 liczby z przedzia
1 liczb do zmiennej systemowej SEED ( PEEK 23670 , 23671 )";
1 blok programu w BASIC-u w dowolne miejsce tego programu. Po odpowiedzi na pytania o parametry przesuni
1 DEFADD (23563/4) (L/M). Uwaga!! Jednocze
1 skopiowany blok.":
1 RESET.":
1 POKE X-4,0:POKE X-3,0 . Taka linia nie mo
1 opis procedury 46. Niech L oznacza pierwsz
1 odtwarzanie (np.muzyka).Maxy malny poziom g
1 kolejnych adres
1 lini
1 procedura 48. (patrz opis 48)":
1 POKE 64649, Czas p